perm filename DBSPC.F4[SAB,LCS] blob sn#352583 filedate 1978-05-02 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION I(100)
C00003 ENDMK
CāŠ—;
	DIMENSION I(100)
1	FORMAT(100A1)
2	FORMAT(' INPUT NAME = '$)
3	FORMAT(' OUTPUT NAME = '$)
4	FORMAT(A5)
8	FORMAT('     ')
	TYPE 2
	ACCEPT 4,INNAM
	TYPE 3
	ACCEPT 4,OUTNAM
	CALL IFILE(1,INNAM)
	CALL OFILE(21,OUTNAM)
5	READ(1,1,END=9)I
	DO 6 K=100,1,-1
6	IF(I(K).NE.' ')GO TO 7
	WRITE(21,8)
	GO TO 5
7	WRITE(21,1)(I(J),J=1,K)
	WRITE(21,8)
	GO TO 5
9	STOP
	END